//PESQUISA_COM_QUERY

Query ->Active = false;

Query ->Active = false;

Query ->SQL->Clear();

Query ->SQL->Text = ("Select * from tabela where (campo) =:cod");

Query ->ParamByName("cod")->AsString = (Edit1->Text);

Query ->Active = true;

Query ->Active = true;